GetClipString Example (Remote Data)

The following example creates a clip string from a result set containing a selected set of rows from the Publishers table and fills a Grid control from the string by applying it to the Clip property.

Dim rs As rdoResultset
Set rs = MyConnection.OpenResultset( _
"Select * from Publishers Where State = ‘WA’", _
   rdOpenNone)
MyGrid.Rows = rs.RowCount
MyGrid.Cols = rs.rdoColumns.Count
MyGrid.SelStartRow = 1
MyGrid.SelEndRow = MyGrid.Rows
MyGrid.SelStartCol = 0
MyGrid.SelEndCol = MyGrid.Cols - 1
MyGrid.Clip = rs.GetClipString(rs.RowCount)